home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CUCD / Utilities / DOpus / MagnumOpus / Magnum_Opus.Update < prev    next >
Encoding:
Text File  |  1997-09-20  |  3.3 KB  |  110 lines
  1.  
  2. ; $VER: Magnum_Opus.Update 1.0 (20.09.97)
  3.  
  4. ;_________________________________________________________________________________
  5.  
  6. (set #welcome
  7.   (cat "\nWelcome to the V2.2 update of\n\n"
  8.        "Magnum Opus V2.1\n"
  9.        "Copyright © Richard Lane 1996-97"
  10.   )
  11. )
  12.  
  13. (welcome #welcome)
  14. (complete 5)
  15. ;===============================================================================
  16. ; First I need to check that the assign to DOpus5: exists.
  17.  
  18. (set #no-opus (cat "You don't appear to have Directory Opus V5.11 or above installed ")
  19. )
  20. (if (not (exists "DOpus5:DirectoryOpus"))
  21.     (abort #no-opus)
  22. )
  23. (complete 10)
  24. ;===============================================================================
  25. ; Now warn the user if they're running a Kickstart 2 Amiga.
  26. ; If it's a Kickstart 1.x Amiga then DOpus will NOT install in the first
  27. ; place and the above will pick this up, clever huh. Later I may do a proper
  28. ; check for this
  29.  
  30. (if (< (/ (getversion) 65536) 38)
  31.         (message "IMPORTANT NOTICE\n\nYou are using a Workbench 2.x Amiga.\n\n"
  32.         "Magnum Opus V2.1 has not been tested with this but should work OK\n"
  33.         "Please select what you want you want to do ?")
  34. )
  35. (complete 15)
  36. ;==============================================================================
  37. ; Now to check and display the version of Directory Opus in use.
  38.  
  39. (set vernum (getversion "DOpus5:DirectoryOpus"))
  40. (set ver (/ vernum 65536))
  41. (set rev (- vernum (* ver 65536) ) )
  42.  
  43. (message ("\nDirectory Opus V5.11, 5.5, 5.6 or greater is required\n\nyou have version %ld.%ld" ver rev)
  44. )
  45. (complete 20)
  46. ;==============================================================================
  47. ; OK, Let's go ....
  48.  
  49. (message "This installer script will ONLY update the "
  50.          "Magnum_Opus.Guide to version 2.2.\n\n"
  51.          "Please Note, NO other files are installed."
  52. )
  53.  
  54. ;============================================================================
  55. ; Now to update the Guide
  56.  
  57. (copylib
  58.          (prompt "Copying Help file")
  59.          (help @copylib-help)
  60.          (Source "help/Magnum_Opus.Guide")
  61.          (dest "DOpus5:Help")
  62.          (infos)              ;I want the new icon installed as this has the
  63.          (noposition)         ;proper copyright message in it.
  64.          (optional "force")
  65.          (confirm)
  66. )
  67.  
  68. ; Just to make sure some bright spark hasn't set the wrong default tooltype.
  69.  
  70. (tooltype
  71.         (Prompt "")
  72.         (help "")
  73.         (dest "DOpus5:Help/Magnum_Opus.Guide")
  74.         (setdefaulttool "Multiview")
  75.         (setstack 4096)
  76. )
  77.  
  78. ; By default DOpus 5 doesn't install a Drawer icon for the Help directory, this
  79. ; will check if there is one from the MWB_DOpus8 part of the distribution or
  80. ; another allready installed. This will also make it easier for novice users
  81. ; to find the Magnum2 help file !
  82.  
  83. (if (NOT (exists "DOpus5:help.info"))
  84.     (copyfiles
  85.           (prompt "")
  86.           (help @copyfiles-help)
  87.           (source "Help.info")
  88.           (dest "DOpus5:")
  89.           (noposition)
  90.           (optional "force")
  91.     )
  92. )
  93.  
  94. (complete 100)
  95. ;===============================================================================
  96. (run "SYS:Utilities/Multiview DOpus5:Help/Magnum_Opus.Guide WINDOW"
  97.      (Help "I'll give you a clue, click Proceed.")
  98.      (prompt "The Magnum_Opus.Guide has been updated. "
  99.              "\nDo you want to read it now ?")
  100.      (confirm)
  101. )
  102.  
  103. (exit "Update finished"
  104.      (quiet)
  105. )
  106. ;All done thank goodness for that.
  107.  
  108.  
  109.  
  110.